SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSS YYY YYY SSS LLL 000 000 AAA AAA 
SSS vYY YYY SSS LLL 000 000 AAA ABA 
SSS YYY YYY SSS LLL 000 000 AAA AMA 
SSS yyy yYY SSS LLL 000 000 AAA ABA 
SSS yyy yYY SSS LLL 000 000 AAA AAL 
SSS yyy yYY SSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 A 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS vYY SSS) LLL 000 000 AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSSSSSSSSSSS YYY SSSSSSSSSSSS LLELLLLLLLLLLLLL 000000000 AAA AAR 
SSSSSSSSSSSS vYY SSSSSSSSSSSS LELLLLLLLLLLLLL 000000000 AAA AAA 
SSSSSSSSSSSS yyy SSSSSSSSSSSS LLLLLLLLLLLLLLL 000000000 AAA AAA 
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EEEEEEEEEE RRRRRRRR RRRRRRRR SSSSSSSS UU UU BBBBBBBB UU UU 
EEEEEEEEEE RRRRRRRR RRRRRRRR SSSSSSSS UU UU BBBBBBBB UU UU 
EE RR RR RR RR SS UU UU BB BB UU UU 
EE RR RR RR RR SS UU UU BB BB UU UU 
EE RR RR RR RR SS UU UU BB BB UU UU 
EE RR RR RR RR SS UU UU BB BB UU UU 
EEEEEEEE RRRRRRRR RRRRRRRR SSSSSS UU UU BBBBBBBB UU UU 
EEEEEEEE RRRRRRRR RRRRRRRR $3SSSS UU UU B88B8BBB8B UU UU 
EE RR RR RR RR SS UU UU BB BB UU UU 
EE RR RR RR RR SS UU UU BB BB UU U 

EE RR RR RR RR SS UU UU BB BB UU UU 
EE RR RR RR RR SS UU UU BB BB UU UU 
EEEEEEEEEE RR RR RR RR SSSSSSSS UUUUUUUUUU = BBBBBBBB UUUUUUUUUU 
EEEEEEEEEE RR RR RR RR SSSSSSSS UUUUUUUUUU = BBBBBBBB UUUUUUUUUU 
LL IIIIII SSSSSSSS 

LL III! SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL 1111 SSSSSSSS 

LLLLLLLLLL HII] SSSSSSSS 
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»NOSHOW CONDITIONALS 


Ooo 


-TITLE ERRSUBUV1 = ERROR SUBROUTINES FOR MICRO-VAX | 
IDENT ‘'V04-002' 


s enenepuneunennnnsesenrsecieaineesenneeneonbennnedbensbiebannndanetoubeeenss 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


& ® 
** * 
* & 
:* ® 
:* t 
* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
jt ONLY IN, ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER  * 
;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:* TRANSFERRED. : 
*® ce 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:® CORPORATION. . 
‘ * 
‘® we 
* ® 
*® & 
-* ® 
e ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SOOCOCOCOOCOCOCOOCOCOOOOSOSOOOOSOSoOoOO 


LAR RAAARAASALASALARRSAASELESASSSSSESESE SARE LESSER EE SESE SESE CASES ELE EOS ESAS 
it 

FACILITY: 

EXECUTIVE, LOADABLE SUBROUTINES USED BY POWERFAIL AND BUGCHECK. 
ABSTRACT: 

LOADABLE SUBROUTINES USED BY POWERFAIL AND BUGCHECK. 

AUTHOR: 

N. KRONENBERG, JULY 2, 1979. 

; MODIFIED BY: 


v04-003 wMC00001 Wayne Cardoza 13 ao 1984 
CRD reporting must not be turned off for VENU 


V04-002 CWH4002 He bbs 08-Sep-1984 
Correct typo in fend 10, use ‘'="" instead of ‘‘="" 


v04-001 Fcnoore Trudy C. Matthews 07-Sep-1984 
For the venus processor: move turning on cache from routine 


CSOQOCOCOCOCOCOOOCOOOOOCOSCOOOSCOCSOSOSOOOSOOOSOOOOSOOOOOOOOOOOCSoOO 
OOOO OCOCOCOCOCOCOOCOOOOCOOOOSSSSSOSSCOSSCOOSCCOOCSOOOSCOOCOOOOOOCOOOOOOO 
OOD NAM FW @ OOD NA NEW OOO NA UNE WIN OC OD NAN E WIN OO OO NOAU EW ONION 


COOCOOCOOCOCOCOOCOCOOOOCOCOOOOOOCOOOOOOOCOOCOCOOCOOCOOCOOCOOCOOOCOOCOOOOO 
NNOAAAAO OAOA OMIT BB BEB BEB EWN IInonopoorrunononn 


SOCOOOCSCOSOOOOOCOOSCOOOOOSOOOOSOOOSOSOoOSoOoOOo 


Sooooooo 
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EXESINIPROCREG to a new routine: INISCACHE. Correct 
order in which registers are saved on the stack in ExESREGSAVE. 


v03-022 TCM0009 Trudy C. Matthew 30-Jul-1984 
When turning off CRD interrupts. in EXESINIPROCREG for VENUS, 
read the processor register and write it back to preserve 
the state of other bits in the register. 


v03-021 TCMO008 Trudy C. Matthews 23-Jul-1984 
Remove venus soe? that queries the console for how to set up 
cache and FE°X state. Instead always turn the cache and 
F BOX RA. let the normal error handling code turn it off 


if i 
v03-020 guryers David W. Thiel 02-May-1984 
Revise Mi-*"VAX | TODR register simulation. 


v03-019 cosets Kathleen D. Morse 27-Mar-1984 
d missing indirection in MicroVAX I memory CSR 
CRD enabling. 


v03-018 KPLO101 "ter Lieberwirt 4-Mar-1984 
Add extra vectors now defined = SYSLOAVEC. "thoes vectors 
are insurance for v4.x 


v03-017 KPLO100 er Lieberwirth 12-Feb-1984 
Change RPBS$B _BOOTNDT to RPB$W_BOOTNDT, since BI devices 
will have 16=bit device types: 


V03-016 KDM0092 Kathleen D. Morse 23-Jan-1984 
Cor rect t number of cpu-specific IPRs logged for the 
11/7 ae “icrovAX I cpus. 


V03-015 CWH8001 CW Hobbs 5-Dec-1983 
Add entry points for EXESREADP_TODR and EXESURITEP_ TODR 
es Ry pays reet TODR register for Nautilus CPU.” For 


SOOCSOCOCOSOOSOSOSOSOSOSOOOSOSOOSOSOOSOSOOOOOOSOSoO 


ae ee fw we le we le ww aw lala lo lola la lo lala lolololololo) 


DOOOCOCOCOOCOSOOSCOOSOOOSCOOSOOCOOOOOOSOOOOOOSOOOOOoOOO 


SOoOSOSCOOSOOOOOSOOOOSOOOOOOOOSOSoOoOoOO 


PIP IMNININININS 2 9 9 9 | MQOOCODOCOCOOCOCOCOOOOOOOO CWWOWDWOWOWOOMOO SIN YNNN 
NAME AN @§ OOD NAME WIN 9 OD NAME WIN OS OD NA UE WIN 0 OD NAN EWH  O OONOUE WP 


1 
1 
1 
1 
1 
1 
: 
1 ar sso these amount to duplicate labels on 
! Oke SRE D_TODR ond EXESURITE _TODR. 
1 v03-014 KTA3088 Kerbe yt 17-0c t-1983 
4 : Fix bug in 730 sendit BF, he *EXESINIBOOTADP. 
0 1 v03-013 KDM0081 Kathleen D. Morse 13-Sep-1983 
8 ! Create Micro-VAX I version. 
: 1 v03-012 an 0055 Kathleen D. Morse 12-Jul-1983 
1 Move IPR PME into the cpu-dependent register save and 
3 ! restore routines. 
0 1 v03-011 KDM0049 Kathleen D. Morse 07-Jul-1983 
1 Add the following processor registers to the Sounqone tt%s 
1 dump IPRs routine: TODR, ACCS. Add yeage © 
register: EXESREAD_ Toph and EXESWRITE_TODR. 
' VO3-010 KDM0048 Kathleen D. Morse 07-Jul-1983 
1 


ooooo 


Add load ou.ines for coferenc ing the time-of-day 
clock: 


ler 
ESREAD_ 'ODR, EXESWRITE_TODR. 
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sSOOoOoOOOSoOOSOOOOSOSS 


SoOoOOCOCOCOSOSOSOSOSOSOOOSOOSOOSOOOOOOOOOOOOOOOOoOO 
Cc LOOOOOCOOGOOOCOCOCCCOCOOCOCOCOOOOOOOOOOOCOOO 


OSCSoSoooCoOoOOooOOooOoOoOSOSOOOSOOOoOSoO 


c 


ms ss st a a a ss as as as >» ts 2b 2 as bs a 4 
PAAR AOU BE BE WINN AAAI 


MEW O ODNAU EWI 0 ODNOAU EW  O ODNOU EWN 00 


1$$EP=158¢ 15:25:23 YSYSUGR. SRESERRSua. Man: 5 


v03-009 ygn000? udy Matthews 02-Jun-1983 
x routine SYSLSC RSBIA so that it calculates the address 
of SBI adapter register space correctly. 


v03-008 TCM0006 Trudy C. Matthews 9-F eb-1983 
Store enable/disable. state of 11/790 cache and FBOX in 
EXESGB_CPUDATA cell during system initialization. 


v03-007 TCMO00S {rudy f Matthews 11-Jan-1983 
~~ routine 8 BIA. 4g SBIA register initialization 
fo treet ait ERE. Add 11/790 machine check handler to 
CSR. Change 11/780 machine check handler to 
= te PRS” SBirs’ back to itself to clear error bits. 
Add label§ for wn ‘extra’ rove nes, that can be patched 
if extra vectors from SYS to SYSLOA are needed in between 
major releases. Make EXESDUNPCPUREG log the SBI registers 
from the SBI the 11/79 system disk is on. 


v03-006 TCM0004 Trudy f Matthews 3-Jan-1983 
hag more 11/790-spec fic code. 

v03-005 TCM0003 Trudy C. Matthews 17-Dec-1982 
Add conditional assent ly switch to the invocations 
of 11/790-specific definition macros. 

v03-004 TCMO0002 rudy C. Matth 15-Dec-1982 
Added £1/790-specit iz code to EXESINIPROCREG. 

v03-003 TCMO001 rudy C. Matthews 13-Dec-1982 
soon MA. 11/790-specitic code to power down/power up 
routines 


v03-002 KTA3018 Kerbey T. Altmann 30-0c t-1982 
Remove Cl and UBA routines to another module. 
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-SBTTL EXESINIBOOTADP = INITIALIZE THE BOOT DEVICE ADAPTER 


; EXESINIBOOTADP - GET THE SYSTEM BOOT DEVICE ADAPTER AND INIT IT 
THIS ROUTINE IS CALLED FROM BUGCHECK BEFORE THE BOOTDRIVER IS CALLED. 


INPUTS: 
R6 = RPB ADDRESS 
OUTPUTS: 


zum 
ra 

“4n 
-—O 
>z 


L 


PRESERVED 


»-PSECT SYSLOA,LONG 
~ENABLE LSB 


capemiamaas * * Viti ; SUBROUTINE ENTRY 


INI _UBADP: INIT UBA 


;**temp prgzenee 


TPR #0, #PRUV1S_IORESET INITIALIZE QBUS 


40$: RSB ;DONE WITH UBA INIT 
-DISABLE LSB 


J.13 
O40 EXESSHUTDWNADP =" SHUTDOWN ANT ADAPTERS D IS-SEP=19B6 S5:40:02 ES¥SLOA.SREDERSUBcRAR:S | "OM (8) 


-SBTTL EXESSHUTDWNADP = SHUTDOWN ANY ADAPTERS DURING BUGCHECK 
~SBTTL EXESSTARTUPADP = STARTUP ANY ADAPTERS 


3+ 
; EXESSHUTDWNADP = SHUTDOWN ANY ADAPTERS DURING BUGCHECK 
; THIS ROUTINE IS CALLED FROM BUGCHECK BEFORE THE DUMP IS TAKEN TO 


: Table of addresses of adapter startup routines ordered 
3; by adapter type in ADPSW_ADPTYPE. 


E 

S 

A 

A 

A 

: ; ENSURE THAT ALL ADAPTERS THAT NEED TO BE QUIESENT ARE. A 

§ ; INPUTS: ¢ 

0; IPL = 31 ¢ 

401 ; E 

2 § : OUTPUTS: 3 

0 404 : OTHER REGISTERS PRESERVED : 

00 4 6 i .ENABLE LSB t 

oh $88 EXESSTARTUPADP: : E 

17 +2+8B 3 4 PUSHR #*M<RO,R1,R2,R4> 3; Save a register E 

51 49° AF DE 004 410 MOVAL BeADP_fBL_UP.RI ; Address of startup table E 
06 #1 pe a) BSB $ 3; Join common code 4 

OOA £18 EXESSHUTDWNADP: : E 

17 BB QOOA 414 PUSHR #*M<RO,R1,R2,R4> 3; Save a register £ 

51 31°AF ODE st) 415 MOVAL B*ADP_TBL_DWN,R ; Address of shutdown table E 
FFFFFFFC'SF DE 001 $18 5$: MOVAL a@#<IOCSGL-ADPLIST- - E 
is Big 41 ADPSL 1WeG> og ; Get pointer to head of adapter List E 

52 O4A 0 01 $18 10S: MOVL ADPSL_LIRK(R2),R : Flink onward E 
11 1 01B 41 BEQL 20$ ; Branch if at end of List E 

54 6 RP 01D 420 MOVL ADPSL_CSR(R2) ,R4 ; Get address of CSR E 

50 OE A C 0020 421 MOVZWL ADPS$W_ADPTYPE(R2) ,RO ; Get adapter type code E 
50 614 DE 0024 4 ; MOVAL (R1)CROJ,RO 3; Get table entry of adap shutdown E 
00 8040 16 0 8 4 JSB a(RO)CROS : Call adapter shutdown e 
e917 : : ? : BRE 10$ : Next adapter 4 

17 +=BA 3 4 § gps: POPR #*M<RO,R1,R2,R4> E 

05 oa ? 3 0S: Rob 4 

1 429 ; E 

6 1 430 ; Table of addresses of adapter shutdown routines ordered E 

! ? ; by adapter type in A P$W_ADPTYPE. ; 

Ey: By | 

1 434 ADP_TBL_DWN: ; Address table start I 

FREFFFFF 1 4 ; LON 0$-. 3; v= a 
aeeeeces 3 4 ~ LONG NI_UBADP-. : 1-UBA (QBUS is different than UNIBUS) a 
FFFFFFF 441 LONG 0$-. 3 2-DR fl 
FFEFFFFS D re ~ LONG 0$-. 3; 5-MA780 N 
FFFFFFBF* 0041 44 LONG 1) pueliamatii 3; 4-Cl N 
FFFFFFEB 004 $33 LONG $-. ; Rsved for future expansion | 

$68 p 

44 Pp 

44 P 

44 P 

$2 Pp 

4 Pp 


ADP_TBL_UP: ; Address table start 


kK 13 
KESSTARTUPADP = "STARTUP ANT ADAPTERS 18-SEP-1984 {3:49:28 ESYSLOA.SREDERNSUBLRAR;s | 28° Sy 


ERRSUBUV1 - 
voe=002 é 
ereee er. 49 128 -LONG MBASINITIAL-. 3 Btn 
FFFFFFB3* Dd LONG ASINITIAL-. 
FFFFFFDF LONG ed 3 cnn 
FFFFFFAB‘ -LONG MASINITIAL-. 3 0 
FFEEFEDE ~ LONG $-. ; 
FFFFFFD 9 ? LONG $-. : Rou for future expansion 
3 4 -DISABLE LSB 


POUVMVYVVIO-1 0 


T 
7 
T 
1, 
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~SBTTL EXESDUMPCPUREG = DUMP CPU-SPECIFIC IPR'S 
DUMP CPU-SPECIFIC IPR'S INTO ERROR MESSAGE BUFFER. 


TWENTY@FOUR LONGWORDS ARE RESERVED IN THE EMB FOR CPU-SPECIFIC 
IPR'S. THE FORMATS FOR VARIOUS CPU'S ARE: 


corey" 


o 
Zz 
se 
Pat 
zw 


me 

oa 

mm 

>) 

=s 

vo 

PAINT UIT UT UTUTUTUTUTUIUTO EB EE EP EPP LEPELPLPPPPEPPPPLPELLEEEE MO 


11/780: 11/750: 11/730: 11/790: UVAX I: 

ICR ICR ICR ICR UNUSED (0) 
TODR TODR TODR TODR APPROX TODR 
ACCS ACCS Accs ACCS NUSED (0) 
SBIFS TBOR 21 UNUSED(O)  SBISTS (1st, SBI) 1 UNUSED(O) 
SBISC CADR SILOCMP 

SBIMT MCESR MAINT ee 

SBIER CAER SBIERR “ 

SBIS CMIERR TMOADDRS =" 

16 SBI SILO 16 UNUSED(O) 16 SBI SILO 

INPUTS: 


RO - ADDR IN EMB OF START OF CPU-SPECIFIC REGISTERS= 
OFFSET EMBSL_CR_CPUREG 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


SOOCOCCCOCOCSOOOSOOSCOOSOOSOOSCOOCOSOOOOOOOOOoO 


DDD DDS DS De De DS De DS DS D8 DS DD DDD DDD DDD PPP APPA AAA AA AAO oO 


Ee PF ON gd 8 a et ee ts ss ts a a se st a 


OSOCOCCCOCOOCOOSOOOCOCOOSOSOSOOOOSOOOOOOSOOOOOOOOOOOOCoOO 
VIVIAN O 0 0 OOO 000000909 0900 09090908 NINN NII NINN NINO OOOO OAAO OC 


WONAULS OOS WN 9 OONAULS WN SO OONOU ES WO OONOU SE rn 


OUTPUTS: 
RO,R1 DESTROYED 
ALL OTHER REGISTERS PRESERVED 
.ENABL LSB 
9 EXESDUMPCPUREG: : ; SUBROUTINE ENTRY 
0 
0 
; 
80 D4 0 61 CLRL = (RO) + :NO ICR TO LOG. 
51 dO 86 MOVL RO,R1 ; ‘ 
00000’ 7B EF 16 be 6 JSB EXESREAD_ TODR :GET APPROXIMATE TODR VALUE. 
3 0 D 6 64 MOVL RO, (R1)¢+ LOG THE geet TODR VALUE. 
0 51 oD : 65 MOVL tRESTORE A 
51 16 «OD 66 MOVL #<<EMBSL_CR_CODE - EMBSL” CR CPUREG?/4>=2, R1 :-2 FOR THE 
7 6 UNUSED ICR AND TODR’ ACREADY LOGGED. 
7 68 TTHERE ARE NO MOTH ER CPU-SPECIFIC 
80 D4 007 : 10$:  CLRL  (RO)+ : REGISTERS TO LOG, SO ZERO THE 
FB 51 F5 4 re 908 SOBGTR R1, 10$ ; SPACE IN THE LOROR MSG BUFFER 
05 007A 57 oy een 
78 57% .DISABLE LSB 
78 «(4575 
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1042002 EXESREAD_TODR (P) = READ TIME-OF-DAY CLO 13-SEP-1984 9 05:33 SYSLOA. SRCJERRSUB.MAR; 5 - (3) 
78 A .SBTTL EXESREAD_TODR (P) = READ TIME-OF-DAY CLOCK 
78 8 3 READS THE TIME-OF “DAY CLOCK SINCE IT MAY BE ACCESSED IN 
7B p : DIFFERENT WAYS: TERNAL PROCESSOR REGISTER, AS PART 
7B ; OF THE CO NSOL E, OR “at Neen NDING A ADDRESS IN I/O SPACE. IT 
£8 : ; MAY ALSO BE IN DIFFERENT FORMATS AND HAVE TO BE CONVERTED. 
£8 4 : INPUTS: 
£8 $ ; NONE. 
28 8 ; OUTPUTS: 
7B 0; RO = TODR VALUE 
78 «O591 ALL oTNER REGISTERS PRESERVED 
ah e 
078 3% EXESREADP_TODR:: ; SUBROUTINE ENTRY 
078 396 ; NAUTILUS PROCESSOR NEEDS TO USE A SEPARATE ROUTINE TO ACCESS PHYSICAL TODR 
078 59 ; REGISTER IN THE CONSOLE PROCESSOR FOR TWO no Roee FIRST, THE PHYSICAL 
078 398 : TODR HAS ONE SECOND RESOLUTION INSTEAD OF 10 MSEC RESOLUTION. S$ A 
078 59 : REFERENCE TO THE PHYSICAL TODR IS A ERY NON-INTERRUPTIBLE ACTION. 
0078 600 ; NON-PHYSICAL NAUTILUS TODR REFERENCES W raat: THE EXESREAD_TODR ENTRY 
0078 601 : WHICH WILL FABRICATE THE TIME FROM THE atKDUORD SYSTEM TIME. 
ae 608 ; NOT NAUTILUS = FALL THROUGH TO READ_TODR 
07B 605 EXESREAD_TODR:: ; SUBROUTINE ENTRY 
078 606 
0078 607 
078 611 
07B 612 
078 618 
07B «61 
007B 621 
007B 622 
a 
078 629 : Simulated Toon yetve, is the last value stores into ‘‘TODR'’ 
078 630 ; CEXESGL_TODR) plus umber of ticks axe occurred 
07B 631 : oi e then ((E esga. Oe STiN “EXESGO, oOSCBASED 1 000 ’ 
ace ? § 3: 100000 is the number of 100 ns. in’a TODR tick (10 ms). 
06 BB 0078 634 USHR #*M<R1,R2> 7 SAVE REGISTERS 
2 635 DSBINT #IPL$_POWER,R2 SY NCHR ONIZE WITH SET TIME AND RECAL 
50 00000000'GF 7D 6 $ “EXESGQ_SYSTIME,RO GET RRENT SYSTEM TIME 
50 9000000 00" GF ce A 6 SUBL2 G*EXE$GQ~TODCBASE ,RO :ConeUtE yDELTA SINCE LAST 
51 D 1 6 8 SBWC = G*EXESGQ~TODCBASE+4,R1 =: SET T 
80080080" Cf DD 0098 6 PUSHL G*EXESGL-TODR ORIGINAL Evo pr" VALUE | CORRESPONDING 
9E 640 : TO EXE 6a TODCBASE LUE 
Hi 641 ENBINT R2 SRESTORE | 
Al eis HAVE "g NS. TICKS SINCE EXESGL_TODR IN RO,R1. 
Al 44 ; SCALE 1 oN . TICKS TO 10 MS. TICKS AND A ADOT TO EXESGL_TODR. 
al $42 ; sOBTAIN AN UNSIGNED LONGWORD RESULT MAKES THIS NON-TRIVIAL. 
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ERRSUBUVI = ERROR SUBROUTINES FOR MICRO-VAX | =SEP-1984 01:07 3 AX/VMS Macro V04-00 Page 19, 
v04=00 EXESREAD_TODR (P) = READ TIME-OF-DAY CLO i -SEP-1984 SYSLOA.SRCJ ERRSUB.MAR: 5 
Al 647 : FACT: 
al 4 : ((At2e*32 + B) / C) MOD 2%#32 
® = 
al 5 : (CCA MOD C)*2"*32 + B) / C) MOD 2932 
2 D4 A 8 ELRL =e aR ;MAKE R1/R2 QUADWORD 
51 52 51 000186A0 8F 78 OOA3 65 EDIV #100000 R1 R2,R1 ‘HIGH DIGIT MOD 100000 
51 50 50 00030D40 BF 78 OA 634 EDIV  #100000*2,R0,R0,R1 SCALE T 20 MS ; § 
51 51 C B 636 MNEGL R1,R1 tSET CARRY IFF R1 .NE. 0 
50 «50~=C«#D BB 65 ADWC = RO, RO [SCALE TO 10 MS. UNITS, ADD 
B 638 + OPTIONAL TICK 
50 8€ cO O0BB 6 ADDL2 (SP)+,RO [ADD BASE TODR VALUE 
06 BA ob see POPR #*M<R1,R2> SRESTORE REGISTERS 
05 00CO 66 RSB 
0C1 664 
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AL 
FOR MICROCVAK I 16-SEP-1984 01:07:13 YAK/VNS Macro. ¥04=00 Page 1 
URITES TIME-OF-DAY 13-SEP-1984 15:49:22 LSYSLOALSRESERRGUB MaR:s | eee 


~SBTTL EXESWRITE_TODR (P) = WRITES TIME-OF=DAY CLOCK 
wiles rue wiles "ha ae FLOCK. Ra: IT oy BE ACCESSED IN 


: DIFFERENT WAYS: AS AN INTERN PROCESSOR REGISTER. AS PART 
: OF THE CONSOLE: OR BY READI NG A ADDRESS IN 1/0 SPACE. IT 
: MAY ALSO BE INDIFFERENT FORMATS AND HAVE 10 BE CONVERTED. 
+ INPUTS: 
: RO = CONTAINS VALUE TO BE WRITTEN INTO TODR 
: OUTPUTS: 
; NEW TIME VALUE WRITTEN INTO TODR. 
: ALL REGISTERS PRESERVED. 
EXESWRITEP_TODR:: ; SUBROUTINE ENTRY 
; NAUTILUS PROCESSOR NEEDS TO USE A SEPARATE ROUTINE TO ACCESS PHYSICAL TODR 
: REGISTER IN THE CONSOLE PROCESSOR FOR TWO ONS. FIRST 
: TODR HAS ONE SECOND RESOLUTION INSTEAD OF 10 MSEC RESOLUTION’. SECOND TA 
: REFERENCE TO THE PHYSICAL TODR IS A VERY SLOW, NON-INTERRUPTIBLE ACTION. 
; NON-PHYSICAL NAUTILUS TODR REFERENCES WILL USE THE EXESWRITE_TODR ENTRY 
: WHICH WILL FABRICATE A NEW QUADWORD SYSTEM TIME. 
; NOT NAUTILUS = FALL THROUGH TO WRITE_TODR 
EXESWRITE_TODR:: ; SUBROUTINE ENTRY 
:D0 NOTHING TO SIMULATE WRITING A 
: NON-EXISTENT REGISTER 
RSB 
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ERRSUBUV1 = ERROR SUBROUTINES FOR MICRO-VAX I 16-SEP-1984 :07:1 AX/VMS Macro V04-00 Page 1 
v042002 EXESREGSAVE = SAVE CPU-SPECIFIC IPR'S 18: -SEP-1984 91:02:33 SYSLOA. SR Cie RRSUB.MAR;5 . 18) 
o¢ if ¢ . -SBTTL EXESREGSAVE = SAVE CPU-SPECIFIC IPR'S 
C 7 § 3 EXESREGSAVE = CALLED BY POWERFAIL TO SAVE CPU=SPECIFIC IPR'S ON 
Be 4 j THE STACK 
C 7 § 3; INPUTS: NONE 
C 730 ; 
C 731 ; OUTPUTS: 
OC 7 § 3 
5 733 ; RO DESTROYED 
C 734 ; OTHER GENERAL REGISTERS PRESERVED 
pe 4 5 3 IPR'S SAVED ON THE STACK AS FOLLOWS: 
Bn ? 3 11/780: 11/750: 11/730: 11/790:  uVAX I: 
00C 739 ; OC(SP) PME PME PME ACCS (none) 
00c 740 ; 4(SP) SBIMT TBDR CSwP 
00c 741 ; B(SP) CADR PME 
00C ee : 
00C 743 ;- 
00C 744 
00Cc 745 -ENABL LSB 
00C 746 
00C 747 EXESREGSAVE:: ; SUBROUTINE ENTRY 
00C 779 
05 00C 44! RSB 
00C 783 
00C 784 .DSABL LSB 
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ERRSUBUV1 = ERROR SUBROUTINES FOR MICRO-VAX I =SEP=1984 01:07: AX/VMS Macro V04-00 P 13 
raved EXESREGRESTOR = RESTORE CPU-SPECIFIC IPR : -SEP=1984 1 93: 249: }3 SYSLOA. SRCJERRSUB.MAR; 5 ih 
C ? ¥ .SBTTL EXESREGRESTOR - RESTORE CPU-SPECIFIC IPR'S 
(3 7 gi EXESREGRESTOR - CALLED “BY POW REALL (RECOVERY TO RESTORE CPU-SPECIFIC 
; 789 : FROM TH 
c 731 + INPUTS: 
C 38 ; R6 = TOP OF STACK 
c 194 ; STACK SET UP AS DEFINED IN OUTPUTS OF EXESREGSAVE. 
: 196 t OUTPUTS: 
6 C 8, : RO DESTROYED 
0c 799 : OTHER GENERAL REGISTERS PRESER ED 
C 00 ; CPU-SPECIFIC IPR'S RESTORED FROM STA 
oC o1 ; R6 = ADDRESS OF 1ST CPU- INDEPENDENT SAVED IPR 
Buc} B08 f- 
0¢ 05 .ENABL LSB 
a9¢ 89 EXESREGRESTOR: : ; SUBROUTINE ENTRY 
05 0c 41 RSB ‘NOTHING TO DO, RETURN 
00C4 844 .DSABL LSB 


: 
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E 
S FOR MICRO-VAX 16-SEP-1984 01:07: AX/VMS Macro V04-00 Page 14 
PU-DEPENDENT INITIALIZ 1 35-1982 ? 09:22 SYSLOA.SRCJERRSUB.MAR;5 . (11) 


-SBTTL EXESINIPROCREG = CPU PENDENT INITIALIZATION OF IPR'S 


cca” att 


v 
Oo 
oO 
2D 


! EXESINIPROCREG = PERFORM INITIALIZATION OF INTERVAL TIMER AND 

3 CPU-DEPENDENT REGISTERS. CALLED FROM INIT AND POWERFAIL. 

: INPUTS: 

NONE 

> OUTPUTS: 

% NONE 

EXESINIPROCREG: : ; INIT PROCESSOR REGISTERS 


"a BBC S“#EXESV atte 


0 
1A 00000000" SF @#EXESGL_FLAGS,2 


; If clear, ignore CRD errors. 


7E 50 7D MOVQ RO,- ; Save working registers. 
51 00000000°GF oD MOVAL GPEXESAL MEMCSRS,R1 ; Get address of memory CSR array. 
50 to® MOVL (R1)+,R ; Get count of memory CSRs. 
00 R! 01 ABs 10$: BISW #1,a(R1) ; Reenable parity errors. 
a. &. § ADOL #4,R1 ; Get VA of next memory controller CSR. 
F650 =F SOBGTR RO,10$ ; Loop through all CSRs. 
50 8& 7D MOVa (SP)+,RO ; Restore working registers. 


18 00000040 8F ODA 208: MTPR #*xX40,S*#PRS_ICCS Enable 10ms interrupts. 


RSB ; Return. 


GOCGOCCOCSOOCOCOCOCSOO OOOO SOSOOSOOOOCOSoOOoOO =z 
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viv ti SYSLSCLRSBIA mi iets 9 05:33 SYSLOA. SREJERR RSUB.MAR; 5 ° di 
FE 3 s .SBTTL SYSLSCLRSBIA 
fe 9 3 : SYSLSCLRSBIA - ON w 11/790. CLEAR SBI BRROR REGISTERS 
EE 9 8 ; - 750, 11/730, AND MICRO-VAX I, THIS IS A NOP 
EE 3 0 ; THIS ROUTINE IS CALLED TO CLEAR OUT SBIA ERROR BITS AFTER A MACHINE CHECK 
OEE 331 ; OCCURS (WHEN MACHINE CHECK IS HANDLED LOCALLY). 
OEE $38 : THIS ROUTINE SHOULD BE CALLED AT IPL 31. 
OEE 995 : INPUTS: 
pee 4 3 ABUS_TYPE . ns ARRAY TYPE CODES; IDENTIFIES EACH ADAPTER ON THE 
OFE 998: ABUS_VA - AN ARRAY OF ADAPTER SPACE VA'S FOR EACH ADAPTER 
Oe 1333 ; ON THE ABUS. 
OEE 1001 : OUTPUTS: 
O&E 1 : ; SBI ERROR BITS ARE CLEARED FOR EACH SBIA ON THE ABUS. 
Oke OF: ALL REGISTERS PRESERVED. 
OOEE 1008 SYSLSCLRSBIA:: 
05 OOEE 102 RSB : AND RETURN 
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vou-008 EXESTES 
~-SBTTL EXESTEST_CSR 

EXESTEST_CSR = TEST A QBUS CONTROLLER CSR FOR EXISTENCE 

THIS TEST IS CPU-DEPENDENT. THE FOLLOWING CPU'S ARE SUPPORTED: 


11/788 “TEST CSR_AND guece wy ty IN THE nr¥4 STATUS ret Md 


OR SUBR 
EST_CSR 
EF 1025 
EF 1 : 
é : 
EF 1 : 
EF 1034; 
BE 
eF 1 $ : 11/7 “NON-EXISTENT R IS REPORTED VIA MACHINE CHECK 
EF 1 § ; NON-EXISTENT neRORY REFERENCE. CON T A TEMPORARY 
EF 1 ; MACHINE CHECK HANDLER, TEST THE CSR, AND RESTORE THE 
OFF 1040 : IGINAL MACH IN HECK HANDLER. 
OEF 1041 ;: 11/730 “ACTION IS THE SAME AS FOR THE 11/750. 
EF 1042 : 11/790 ACTION IS THE SAME AS FOR THE 11/78 : 
Oe 43 : MICRO-VAX I -ACTION IS SAME AS FOR THE 11/750. 
OOEF 49 > THIS SUBROUTINE SHOULD BE CALLED VIA BRANCH OR JUMP TO SUBROUTINE AT IPL 31 
OEF 194? > INPUTS: 
OOEF 1949 : RO = CSR ADDRESS 
dOEF 20 ; R6 = ADAPTER CONFIGURATION REGISTER ADDRESS 
OOEF 1083 : OUTPUTS: 
OOEF 1054 : RO LOW BIT SET/CLEAR FOR EXISTENT/NONEX CSR 
OOEF 1055 ;: OTHER REGISTERS PRESERVED. 
Sr eg 
td 1928 -ENABL LSB 
Goer 1060 EXESTEST_CSR:: ; SUBROUTINE ENTRY 
06 BB OOEF 1068 PUSHR #*M<R1,R2> ;SAVE REGISTERS 
00000002 aor 1198 NEX = 2 ;MACHINE=CHECK CODE FOR NON-EXIST MEM 
OF1 1141 
51 00000000'GF 00 ita 1148 10$: OVL  G*EXESGL_SCB.R1 :GET SCB ADDRESS 
04 Al DD OOFB8 114 PUSHL  4(R1) :SAVE CURRENT MCHECK HANDLER ADDR 
52. SE DO OOFB 1144 MOVL  SP,R2 MARK CURRENT STACK POSITION 
04 Al OC'AF DE OOFE 1145 MOVAL B*MCHK_HANDLER,4(R1) [CONNECT TEMP MCHECK HANDLER 
60 5 19 1146 TSTw (RO) [ATTEMPT TO READ CSR 
50 01 A 114 OK: MOVZBL #SS$_NORMAL,RO ZTE NO MCHECK, SET STATUS TO 
13° «211 H 1148 BRB TEST_DONE ‘JOIN COMMON EXIT 
10A 1181 3 
; “ 1} § ; TEMPORARY CSR TEST MACHINE CHECK HANDLER 
10A 1154 ° 
10A 1184 .ALIGN LONG ;REQ'D MACHINE CHECK ALIGNMENT 
10¢ 1136 MCHK_HANDLER: ; 
10€ 115 
ee 
26 OF ODA C 1167 MTPR &#*XF,#PRUVIS_MCESR ZCLEAR MACHINE-CHECK STATE 
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vOu=002 EXESTEST_CSR 1$-$Ep=19 
10F 11 
10F 1159 
50 04 A 4 10F 11 MOVL 4(SP) ,RO 
5 2 Dd 13°=«411 MOVL R2,SP 
0 D1 118 11 CMPL RO, #NEX 
EA 12 Q119 1184 BNEQ OK 
118 11 
118 1188 NONEX_DEV: 
50 D4 O118 11 CLRL RO 
11D 1190 TEST_DONE: 
04 Al BEDO O11D 1191 OPL 4(R1) 
4 1 1136 TEST_DONE 2: 
06 BA O121 119 POPR #*M<R1,R2> 
05 0123 1194 RSE. 
0124 1195 -DISABLE LSB 


7:1 AX/VMS M 


v04-00 
05:3 SYSLOA. sre 


P 
SERR SUB.MAR; 5 - 


‘SET STATUS TO FAILURE 
:RESTORE SYSTEM MCHECK HANDLER 


RESTORE REGISTERS 
;RETURN RESULT TO CALLER 


0 
N 
0 
0 
0 


WW 


DD POL VOD LLL LLL LLL LEE 


1.14 
OR MICRO-VAX 1¢- 
R CONTROL BLOCK INT 15-SEP=1 


~SBTTL ADPLINK = LINK ADAPTER CONTROL BLOCK INTO ADP LIST 
; ADPLINK LINKS THE ADAPTER CONTROL BLOCK TO THE END OF THE ADP LIST 


SEp-19be $5:09:02 ESySLOA.saedERRsua-man:s = "9 (18) 


: T: 

3 R2 = ADDRESS OF NEW ADP 
3; OUTPUTS: 
3 ADP IS LINK TO THE END OF THE ADPLIST LOCATED BY IOCSGL_ADPLIST. 
3 RO,R1 destroyed. 
A 


“MOVAB @#<1OCSGL_ADPLIST-ADPSL_LINK> 


RO 
; START OF LIST 
10$: MOVL ADPSL_LINK(RO) ,R1 FLINK TO FIRST ENTRY 


BEQL : AT E 
ROVE R1,RO : TRY AGAIN 

20$:  MOVL R2,ADPSL_LINK(RO) : CHAIN NEW ADP TO END OF LIST 
RSB : AND RETURN 
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Symbol table 1$-$66=4 $82 94:05:33 EeYSLOA. SREJERRSUB_MAR: 5 ’ (15) 
ADPSL_CSR 2 PRUV1$_MCESR 2 
ADPSL_LINK s 4 ssf NORMAL = a6 
ADPSW"ADPTYPE s F SYSESCLRSBIA Fe RG 
ADPLIAK RG TEST_DONE 11D R 
ADP_TBL_DWN 1 R TEST-DONE_2 000121 R 
aoe TBL "UP 49 R UBASTNITIAL eeneenee =X 
C750_LIRE = 4 
C780 LIKE = 0 
CISSAUTDOWN aeeeeree =X 03 
Cc PE = 00000007 
EMBSL_CR_CODE 2 3 F4 
EMBSL~CR-CPUREG = 00094 
EXESAC_MEMCSRS eeeeeeee Xx ; 
EXE SDUMPCPUREG 0 00 1 R 
EXESEXTRA1 0 0 RG 1 
EXESEXTRA10 00 $ 0 RG 4 
pu SEETRAG 44 RG 1 
EXESEXTRA 0 33 3 RG 01 
EXESEXTRAG 360 RG 01 
EXESEXTRAS $008 RG 01 
EXESEXTRA 00000000 RG 01 
EXESEXTRA 000000 G 01 
EXESEXTRAS 00000000 RG 01 
EXESEXTRAD 00000000 RG 01 
EXESGL_FLAGS eeeeesee =X 03 
EXESGL_SCB eeereeee =X 8 
EXESGL_TODR eeeeeeee = X 0 
EXESGQ"SYSTIME teeeeeee =X = 03 
EXE$GQ~ TODCBASE aeeeeere =X 03 
EXESINTBOOTADP 0000000 RG 3 
EXESINIPROCREG 00000C4 RG 0 
EXESREADP_TODR 0000078 RG 03 
EXESREAD TODR B60 RG 03 
EXESREGRESTOR 0O00C3 RG Hy 
EXESREGSAVE 009 C2 RG 0 
EXESSHU P 0 OA RG 3 
EXESSTARTUPADP 0000002 RG 
EXESTEST_CSR OOOOOOEF RG 3 
EXESV_CRBENABL teeeeeee 3 
EXESWRITEP_TODR 000 C1 RG ; 
EXESWRITE_TODR 000C1 RG 
INI_UBADP 000001 R b3 
1OCSGL_ADPLIST eeeeeeee = X 0 
3 POWER = 0000001F 
MASIRITIAL eenenere =X 3 
MBASINITIAL eeeeenee xX ; 
MCHK_HANDLER 0 
NEX 2 
NONE X_DEV R 03 
OK R 
PR$_ICCS s 
PRS_IPL = 
5 Td = 
PR$_SID-TYP7 = 
PR$_SID_TYP7. = 
PR$_SID-TYP7 s 
PR$_SID-TYPUV1 2 
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; Psect synopsis ! 


sere cece ne meas $ 


PSECT name Allocation PSECT No. Attributes 


» 06 « 099000) ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL N 

. BLANK . 449 ( 1.) O1¢ #1.) NOPIC USR CON REL’ LCL NOS 

SABSS 00 ( 3 ¢ ( -) NOPIC USR CON ABS LCL NOSHR 

SYSLOA $001 36 ( 315.) ( $5.) NOPIC USR CON REL LCL NOSHR 
fmm eee mee Season cm mm ama m a + 
! i Performance indicators H 

Phase Page faults CPU Time Elapsed Time 

Initialization 35 00: a .06 89: 0: 0:9) «87 

Command processing 141 00:00:00.44 0:04.50 

Pass 348 0:00:07.27 if 0: 7.11 

Symbol table sort ! 0: 3: 1.07 : 4.34 

Pass 2 12 0:00:02. ! 0: 0: at 

Symbol table output 9 0: 3: . 0:00:00.0 

Psect synopsis output 1 0:00:00. 3 0:00:00.0 

Cross-reference output 9 0:00:00.0 es Sa oe 

Assembler run totals 66 0:00:10.91 0:00:45. 


The working set Limit yes 1650 pages. 

70296 bytes (138 pages) of virtual memory were used to buffer the intermediate code. 

There were 60 pages of symbol table space at tecates to hold 1049 non-local and 13 local symbols. 
1222 source Lines were read in Pass 1, progyc ing | object records in Pass 2. 

22 pages of virtual memory were used to define 21 macros. 


fpeocamen ewe norane SS Se Se of 


! Macro Library statistics ; 


iuanwatet ww teem mere et ewe meee 


Macro Library name Macros defined 


$52 280UAE: Favs: “OBJILIB. MLB; 1 12 
“$255$DUA SYSLIBISTARLET -MLB;2 6 
TOTALS (all Libraries) 18 


1130 GETS were required to define 18 macros. 
There were no errors, warnings or information messages. 


16-SEP-19 :07:1 AX/VMS M 
Psect synopsis 1$-S66=1 382 93:05 :49:2 SYSLOA.S TERR 


EXE NORD 
EXE RD 
EXE RD 
EXE RD 


Rsua.nan:s "28° <f8, 


NOWRT NOVEC errr 


WRT NOVEC LONG 


MACRO/LIS=LIS$:ERRSUBUV1/0BJ=0BJ$:ERRSUBUV1 MSRC$:CPUSWUV1/UPDATE=(ENHS: CPUSWUV1) +MSRCS$: ERRSUB/UPDATE=(ENH$ : ERRSUB) +E XECMLS/LIB 
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